﻿namespace HuwmanCode

open System
open HuwmanCode
open NUnit.Framework
open FsUnit

[<TestFixture>]
type ``IntPtr ``() =
    [<Test>]
    member this.``IntPtr.toOption - IntPtr.Zero returns None``() =
        IntPtr.Zero |> IntPtr.toOption |> Option.isNone |> should be True

    [<Test>]
    member this.``IntPtr.toOption - IntPtr() returns None``() =
        IntPtr(0b10101010) |> IntPtr.toOption |> Option.isNone |> should be False